home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 015a / do1003.zip / ES.SCR < prev    next >
Text File  |  1991-11-20  |  963b  |  29 lines
  1. *┌────────────────────────────────────────────────────────────┐
  2. *│SCRIPT: ES  This script invokes the DO.MAC file and then    │
  3. *│            calls your default editor to edit a script.     │
  4. *│            The macros will remain in effect even in your   │
  5. *│            editor.  (Be sure to test this, it is not       │
  6. *│            guaranteed that it will work with ALL editors.  │
  7. *└────────────────────────────────────────────────────────────┘
  8. * Check to be sure user has entered a filename
  9. /IF %ES01 EQ "" CheckExtension
  10. *
  11. * If a filename was not passed to the script, prompt for one
  12. /SET Default ""
  13. .clr
  14. Enter a scriptname.  Press »bo«<Enter>»#« to abort.
  15. /GETS ES01 Default "»ye«Script»gy«:»#«" 40 UC
  16. *
  17. * Check the name to see if it has an extension
  18. :CheckExtension
  19. * If it's NULL, exit
  20. /IF %ES01 NE "" End
  21. /IF %ES01 NL "*.*" EditFile
  22. /SET ES01 %ES01.SCR
  23. :EditFile
  24. /MACROS ON DO.MAC
  25. /EDIT %ES01
  26. /MACROS OFF
  27. :End
  28. * End of Script
  29.